home *** CD-ROM | disk | FTP | other *** search
-
-
-
-
-
-
-
-
-
-
-
-
-
- *************************************
- * *
- * T A P E D U M P *
- * ON THE MVS/XA OPERATING SYSTEM *
- * *
- *************************************
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- John S. Ward
- 03/15/93
-
- EJECT
- There are now procedures for producing listings of tape files in
- both character and hex format. These procedures allow you to determine
- the logical record length (lrecl), format and block size of a non-labeled
- foreign or library tape. There is a CLIST called from TSO and a PROC
- called from JCL.
-
-
-
- TAPEDUMP CLIST:
-
- From TSO: TAPEDUMP DSN(DATA.SET.NAME) VOLSER(vvvvvv)
-
- The DSN and VOLSER parameters are required. There are
- additional parameters which you may supply or take the defaults.
-
- FSQN(1) - File sequence number, defaults to 1.
- LBL(NL) - Label type, defaults to non-labeled.
- EXPDT(98000) - Expiration Date/TMS, defaults to foreign tape.
- COUNT(10) - Count, the number of blocks to dump.
-
- This CLIST submits a batch job whose output may be viewed in
- ISPF panel 3.8 and requeued for printing.
-
-
-
- TAPEDUMP PROC:
-
- From JCL: //STEP1 EXEC VOLUP,VOLSER=vvvvvv,ACCESS=READ
- //STEP2 EXEC TAPEDUMP,DSN='DATA.SET.NAME',VOLSER=vvvvvv
- //TDUMP.SYSIN DD *
- PRINT INFILE(TAPEDD) COUNT(n)
- /*
-
- The DSN, VOLSER, and COUNT parameters must be supplied. The
- COUNT parameter indicates the number of blocks to dump. Please
- note the space in front of PRINT, it must be included. As in the
- CLIST, there are additional parameters which may be supplied or
- the default taken.
-
- FSQN=1 - File sequence number, defaults to 1.
- LBL=NL - Label type, defaults to non-labeled.
- EXPDT=98000 - Expiration Date/TMS, defaults to foreign tape.
-
- If the DSN of a foreign tape is one that is illegal under MVS, it
- must be enclosed in triple quotes:
-
- DSN='''BAD.DSN.1'''
-
-